home *** CD-ROM | disk | FTP | other *** search
/ PC User 2004 July / PCU0704CD2.ISO / resource / shortcut / files / autohot.exe / Extras / Run this to install syntax and clip library files for TextPad.ahk < prev    next >
Encoding:
Text File  |  2004-04-24  |  4.5 KB  |  86 lines
  1. ; Done by Rajat for AutoHotkey
  2. ;
  3. ; Script Function:
  4. ;    Install syntax highlighting and clip library files.
  5. ;    Add hotkeys to TextPad for Launching Script and Context Sensitive Help
  6.  
  7.  
  8.  
  9. RegRead, TextPadDir, HKEY_CLASSES_ROOT, TextPad.tws\shell\open\Command,
  10.  
  11. if TextPadDir =
  12.     RegRead, TextPadDir, HKEY_CLASSES_ROOT, Applications\TextPad.exe\shell\edit\Command,
  13.     
  14. if TextPadDir =
  15.     TextPadDir = %programfiles%\TextPad 4  ; Try a best-guess location.
  16. else
  17. {
  18.     StringGetPos, TPOS, TextPadDir, TextPad.exe
  19.     StringLeft, TextPadDir, TextPadDir, %TPOS%
  20.     StringReplace, TextPadDir, TextPadDir, ", , all  ; Remove all double quotes.
  21. }
  22.  
  23. IfNotExist, %TextPadDir%
  24. {
  25.     MsgBox, TextPad could not be found (the directory "%TextPadDir%" does not exist).`n`nThis script will now exit.
  26.     Exit
  27. }
  28.  
  29.  
  30. ; Prompt the user to run the script - use a Yes/No prompt (4 - see help file)
  31. MsgBox, 4, TextPad v4, This script will install syntax highlighting and clip library files for TextPad v4.  Run?
  32.  
  33. IfMsgBox, NO, Exit
  34.  
  35. FileCopy, AutoHotkey.syn, %TextPadDir%\system, 1
  36. if ErrorLevel <> 0
  37. {
  38.     MsgBox, Could not copy AutoHotkey.syn
  39.     Exit
  40. }
  41. FileCopy, AutoHotkey.tcl, %TextPadDir%\Samples, 1
  42. if ErrorLevel <> 0
  43. {
  44.     MsgBox, Could not copy AutoHotkey.tcl
  45.     Exit
  46. }
  47.  
  48. ; Now write the reg keys (use the non-abbreviated root key names in case user has an older version of AutoHotkey)
  49. RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Document Classes\AutoHotkey, Type, 2
  50. RegWrite, REG_MULTI_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Document Classes\AutoHotkey, Members, *.ahk
  51. RegWrite, REG_BINARY, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Document Classes\AutoHotkey, Properties, 46000000010000000100000001000000
  52. RegWrite, REG_BINARY, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Document Classes\AutoHotkey, Colors, 010000000100000001000000010000000100000001000000010000000100000001000000010000000100000001000000010000000100000001000000010000008006c800010000000100000001000000010000000100000001000000010000000100000001000000010000000100000001000000010000000100000001000000010000000100000001000000010000000100000001000000010000000100000001000000010000008080800001000000
  53. RegWrite, REG_BINARY, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Document Classes\AutoHotkey, SyntaxProps, 01000000
  54. RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Document Classes\AutoHotkey, SyntaxFile, AutoHotkey.syn
  55. RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Document Classes\AutoHotkey, WordChars, _
  56.  
  57. MsgBox, 4, TextPad v4, Installation complete!`n`nDo you want to make TextPad the default editor for AutoHotkey scripts?
  58. IfMsgBox, Yes, RegWrite, REG_SZ, HKEY_CLASSES_ROOT, AutoHotkeyScript\Shell\Edit\Command, , "%TextPadDir%\TextPad.exe" "`%1"
  59.  
  60. MsgBox, 4, TextPad v4, Do you want to make 'Ctrl+1' a shortcut for running the script currently loaded in TextPad?`n`n(The shortcut may be reconfigured in TextPad 'Configure Menu > Preferences > KeyBoard')
  61. IfMsgBox, Yes
  62. {
  63.     RegWrite, REG_BINARY, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\0, Properties, 000000005680000046000000
  64.     RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\0, MenuText, Run Script
  65.     RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\0, Command, %comspec%
  66.     RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\0, Parameters, %a_space%/c start $DosFile
  67.     RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\0, Folder, $FileDir
  68.     RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\0, RE,
  69. }
  70.  
  71.  
  72. MsgBox, 4, TextPad v4, Do you want to make 'Ctrl+2' a shortcut for context sensitive help in TextPad?`n`n(The shortcut may be reconfigured in TextPad 'Configure Menu > Preferences > KeyBoard')
  73. IfMsgBox, Yes
  74. {
  75.     RegRead, AHKPATH, HKEY_CLASSES_ROOT, AutoHotkeyScript\Shell\Run\Command,
  76.     StringGetPos, POS, AHKPATH, AutoHotkey.exe
  77.     StringLeft, AHKPATH, AHKPATH, %POS%
  78.     
  79.     RegWrite, REG_BINARY, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\1, Properties, 020000005780000004000000
  80.     RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\1, MenuText, AutoHotkey Help
  81.     RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\1, Command, HH.EXE
  82.     RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\1, Parameters, %ahkpath%AutoHotkey.chm
  83.     RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\1, Folder,
  84.     RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Helios\TextPad 4\Tools\1, RE,
  85. }
  86.